home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / boyan401.arc / HOSTMSGS.BSC < prev    next >
Text File  |  1991-04-28  |  3KB  |  74 lines
  1. \\ HOSTMSGS.BSC -- host mode message-handling script file
  2. \\ This script is automatically invoked in the "Messages" block
  3. \\ by the HOST.BSC (main host mode) script file.
  4.  
  5. \\ Abort script if not invoked in "Messages" block:
  6. \DM[Press <Alt-I> to invoke Host Mode.]\AB
  7.  
  8. |Messages                            \\ Host Mode "Messages" menu
  9. {Message select ([L]ist, [E]nter, [R]ead, [D]elete, [Q]uit): `
  10. \RV0[1]{\(                           \\ Read 1 char
  11. \IV0+Q[\GS[HOST;Menu]]               \\ If it's Q, go back to HOST script
  12. \IV0+L[\GB[ListMsgs]]                \\ Otherwise branch off appropriately...
  13. \IV0+E[\GB[EnterMsg]]
  14. \IV0+R[\GB[ReadMsg]]
  15. \IV0+D[\GB[DeleteMsg]]
  16. \GB[Messages]                        \\ Or circle around for more.
  17.  
  18.  
  19. |ListMsgs                            \\ show all files named *.msg
  20. Available messages:{
  21. \DC[dir %V4*.msg /W > %V4`hosttemp.fil] \\ use DOS to list messages in file
  22. \ULa[%V4`hosttemp.fil]               \\ then ASCII-upload the temp file
  23. \GB[Messages]                        \\ go back to Messages menu
  24.  
  25.  
  26. |EnterMsg
  27. Type a name for your message (1-8 letters): ________^H^H^H^H^H^H^H^H
  28. \RV0[8]{\(                           \\ read in message name of up to 8 chars
  29. \SV0[%V4%V0.msg]                     \\ make %V0 = full path\filename.msg
  30. \FE+%V0[That message already exists.{\GB[Messages]]
  31. =========== From: %V6 ==== %MO/%DA at %HR:%MI ==========={
  32. \AF%V0[==== From: %V6 ==== %MO/%DA at %HR:%MI ====]
  33. \FE-%V0[Unable to create message file %V0.{\GB[Messages]]
  34. \AF%V0[]
  35. Enter message.  Hit <Return> on empty line when message is complete.{{
  36. \TO[100]                             \\ set 100-second timeout for each line
  37. \SV9[1]                              \\ line number counter, starts at 1
  38. \BL[GetMsgLines]                     \\ get message, line-by-line
  39. {Message %V0 accepted.{
  40. \GB[Messages]                        \\ go back to Messages menu
  41.  
  42.  
  43. |GetMsgLines
  44.  %V9> `                              \\ prompt with current line number
  45. \RV8[73]\(                           \\ read line of text into %V8
  46. \AF`%V0[%V8]                         \\ Append line to message file %V0
  47. \IV8+[\EB]                           \\ if %V8 is empty, end block
  48. \+V9[1]                              \\ Otherwise, increment line number...
  49. \GB[GetMsgLine]                      \\ ... and loop back for more.
  50.  
  51.  
  52. |ReadMsg
  53. Name of message to read: \RV0[8]{\(  \\ prompt for name
  54. \SV0[%V4`%V0.msg]                    \\ expand name to path\filename.msg
  55. \FE-%V0[That message does not exist.{\GB[Messages]]
  56. \ULa[%V0]                            \\ send file if it exists
  57. \GB[Messages]                        \\ go back to message menu
  58.  
  59.  
  60. |DeleteMsg
  61. Name of message to delete: \RV0[8]{\(  \\ prompt for name
  62. \SV0[%V4%V0.msg]                     \\ expand name to path\filename.msg
  63. \FE-%V0[That message does not exist.{\GB[Messages]]
  64. \BL[SecondPW]                        \\ require secondary password
  65. \IV0+CANCEL[\GB[Messages]]           \\ go back if wrong password entered
  66. \DC[DEL %V0]                         \\ otherwise use DOS to erase file
  67. Message file %V0 deleted.{
  68. \GB[Messages]                        \\ go back to message menu.
  69.  
  70.  
  71. |SecondPW
  72. Enter secondary password: \RV8[12]\( \\ prompt for secondary password
  73. \IE-%V8,%V2[Wrong password.{\SV0[CANCEL]]  \\ sets %V0 to CANCEL if wrong
  74.